(emerge-show-file-name): Handle any kind of event.
authorRichard M. Stallman <rms@gnu.org>
Sat, 6 Mar 1993 06:10:05 +0000 (06:10 +0000)
committerRichard M. Stallman <rms@gnu.org>
Sat, 6 Mar 1993 06:10:05 +0000 (06:10 +0000)
lisp/emerge.el

index 2309c6db93a094dc4e0c5fc0e14689a64f6737c3..09c29fbb6809f87e7010eebcf5259bcdb2bd4c83 100644 (file)
@@ -2908,8 +2908,8 @@ SPC, it is ignored; if it is anything else, it is processed as a command."
            (while (and (not (pos-visible-in-window-p))
                        (> (1- (frame-height)) (window-height)))
              (enlarge-window 1))
-           (let ((c (read-char)))
-             (if (/= c 32)
+           (let ((c (read-event)))
+             (if (not (eq c 32))
                  (setq unread-command-events (list c)))))))))
 
 ;; Improved auto-save file names.